home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 9 / Night Owl CD-ROM (NOPV9) (Night Owl Publisher) (1993).ISO / 016a / citas.zip / CITAS.C next >
C/C++ Source or Header  |  1993-05-23  |  1KB  |  54 lines
  1. #include <conio.h>
  2. #include <stdio.h>
  3. #include <io.h>
  4. #include <string.h>
  5. #include <stdlib.h>
  6.  
  7. int filexist(char *filename)
  8. {return (access(filename,0)==0);}
  9.  
  10. int main(void)
  11. {
  12. FILE *han,*ha2;
  13. int n,ncita;
  14. char *cad;
  15.  
  16. printf("<Lector de Citas, para Front Door>            @A.S.G.G.1991\n\n");
  17.  
  18. if (filexist("CITA.")) remove("CITA.");/*Borro antigua cita*/
  19. if (!filexist("CITAS.TXT")) printf("\nNo existe el fichero CITAS.TXT\n");
  20. if (!(han=fopen("CITAS.TXT","r"))){
  21.     printf("Error: No puedo abrir el fichero de citas...\n");
  22.     return (1);}
  23. if (!(ha2=fopen("CITA.","w"))){
  24.     printf("Error: No puedo crear el fichero de cita...\n");
  25.     return (1);}
  26. n=0;
  27. printf(" Leyendo el fichero de citas...\n\n");
  28. while (feof(han)==0){
  29.    fgets(cad,80,han);
  30.    if (!strncmpi(cad,"-",1)) n++;
  31. }
  32. printf(" Nº de citas en fichero: %d\n",n);
  33. randomize();
  34. ncita=(rand() % n)+1;
  35. printf("      Elegida la Número: %d\n\n",ncita);
  36. fseek(han,0L,SEEK_SET);
  37. n=0;
  38. while ((feof(han)==0) && (n<ncita)) {
  39.    fgets(cad,80,han);
  40.    if (!strncmpi(cad,"-",1)) n=n++;
  41. }
  42. fputs("==============================================================\n",ha2);
  43. fgets(cad,80,han);
  44. while (feof(han)==0) {
  45.    if (!strncmpi(cad,"-",1)) break;
  46.    fputs(cad,ha2);
  47.    printf(" %s",cad);
  48.    fgets(cad,80,han);
  49. }
  50. fputs("==============================================================\n",ha2);
  51. fclose(han);
  52. fclose(ha2);
  53. }
  54.